home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs19.d81
/
pspmcvrt.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
5KB
|
127 lines
10 REM PRINT SHOP/PRINTMASTER CONVERTER
20 REM BY BRIAN HEYBOER 4/26/86
30 REM CLEARWATER COMMODORE CLUB BBS
40 REM SYSOP TEL: 813/545-4884
50 REM Q-LINK ID: MOSFET
60 REM THIS PROGRAM IS PUBLIC DOMAIN
70 Z$=CHR$(0):Q$=CHR$(34):MX=140:FL$=Z$+Z$+Z$+Z$+Z$+Z$+Z$+Z$+Z$+Z$+Z$+CHR$(139)
80 POKE53280,15:POKE53281,1
90 PRINTCHR$(14);CHR$(8)
100 DIMF$(MX),O$(MX)
110 PRINT"[147][149][208][210][201][206][212] [211][200][207][208]/[208][210][201][206][212][205][193][211][212][197][210][160][199][210][193][208][200][201][195][160][195][207][206][214][197][210][212][197][210]";
120 PRINT" [156] [194]Y [194]RIAN [200]EYBOER ([209]-[204]INK [201][196]: [205][207][211][198][197][212])"
130 PRINT" [212]HIS PROGRAM CONVERTS [208]RINT [211]HOP"
140 PRINT" [211]IDE [193] ([206]ON-[195][194][205] [208]RINTER) GRAPHICS TO"
150 PRINT" [208]RINT[205]ASTER FORMAT AND [208]RINT[205]ASTER"
160 PRINT" [193]RT [199]ALLERY OR [196]ATA [196]ISK GRAPHICS TO"
170 PRINT" [208]RINT [211]HOP ([211]IDE [193]) FORMAT. "
180 PRINT" [212]HIS PROGRAM IS [208]UBLIC [196]OMAIN."
190 PRINT"[144][208]RINT [211]HOP IS A TRADEMARK OF [194]RODERBUND."
200 PRINT" [208]RINT[205]ASTER IS A TRADEMARK OF"
210 PRINT" [213]NISON [215]ORLD."
220 PRINT" [208]RESS ANY KEY TO CONTINUE."
230 GETA$:IFA$=""THEN230
240 PRINT"[147][149][208][210][201][206][212] [211][200][207][208]/[208][210][201][206][212][205][193][211][212][197][210][160][199][210][193][208][200][201][195][160][195][207][206][214][197][210][212][197][210]";
250 PRINT" [144][212]YPE OF CONVERSION:"
260 PRINT" 1 = [208]RINT [211]HOP TO [208]RINT[205]ASTER"
270 PRINT" 2 = [208]RINT[205]ASTER TO [208]RINT [211]HOP"
280 INPUT" [215]HICH";CT:IFCT<>1ANDCT<>2THENPRINT"[195]HOOSE 1 OR 2":GOTO280
290 INPUT" [211]OURCE [196]RIVE ? 8[157][157][157]";SD
300 INPUT"[144] [196]ESTINATION [196]RIVE ? 8[157][157][157]";DD
310 IF SD<>DD THEN360
320 PRINT" [208]LEASE INSERT THE DISKETTE INTO THE
330 [153]" DISK DRIVE AND PRESS THE (null)VAL(null)(null)(null)(null)WAIT KEY.
340 PRINT" [195]ONVERTED PROGRAMS WILL BE WRITTEN ON
350 [153]" SAME DISK; DON'T WRITE PROTECT DISK.":[137]390
360 [153]" (null)LEASE INSERT THE SOURCE DISK IN
370 PRINT"DRIVE"SD"AND THE DESTINATION DISK IN
380 [153]"DRIVE"DD". (null)RESS (null)VAL(null)(null)(null)(null)WAIT WHEN READY."
390 [161]A$:[139]A$[179][177][199](13)[167]390
400 [159]15,SD,15,"I0":DN[178]15:[141]770:[139]E[167]820
410 [159]14,DD,15,"I0":DN[178]14:[141]770:[139]E[167]820
420 [133]"STOP ASCILENAMES TO MATCH ? *CMDCMDCMD";F$:F$[178]F$[170]"*"
430 [159]1,8,0,"$0:"[170]F$:[141]770:[153]
440 [139]E[167][153]"CONT IMPOSSIBLE TO READ DIRECTORY WAIT":[137]820
450 [153][163]10);"'LENSTOP' TO CONVERT FILE
460 PRINTTAB(10);"'[210][144]' TO REJECT FILE"
470 PRINTTAB(10);"'[194][144]' TO BEGIN CONVERSION
480 [153][163]10);"'ATNSTOP' TO ABORT"
490 [161]#1,A$,B$:N[178]0
500 [161]#1,A$,B$:[139]B$[178]""[137]740
510 [161]#1,A$,B$:F$[178]"":O$[178]""
520 [139]A$[179][177][199](3) [176]B$[179][177]""[167] BF[178][171]1
530 [161]#1,A$:[139]64[175]ST[137]740
540 [139]A$[179][177]Q$[137]530
550 [161]#1,A$:[139]A$[178]Q$[167]590
560 F$[178]F$[170]A$:[139] A$[179][177]""[167]A[178][198](A$):[139]A[177]96[167]A[178]A[171]32:A$[178][199](A)
570 [139] A$[178]" "[176]A$[178]"."[176]A$[178]"\"[176]A$[178]"^"[167]A$[178]"-"
580 O$[178]O$[170]A$:[137]550
590 [161]#1,A$:[139]A$[179][177]" "[137]590
600 [161]#1,T$:[139]T$[178]" "[137]600
610 [161]#1,A$:[139]A$[179][177]""[137]610
620 [139] BF [176] T$[179][177]"P" [167] BF[178]0:[137]500
630 [139] CT[178]2 [175] [201](F$,4)[179][177]".GRA"[167]500
640 [153][163]2)Q$;F$;Q$;[163]21);
650 [153]"_ C:R:B:A?WAITCMDCMDCMDCMDCMDCMDCMDCMD";:GF[178][171]1
660 [161]A$:[139]A$[178]""[137]660
670 [139]A$[178]"R"[167][153]"CONTREJECT FILESTOP":[137]500
680 [139]A$[178]"B"[167][153]"CONTBEGIN CONVERSIONSTOP":[137]740
690 [139]A$[178]"A"[167][153]"CONTABORT CONVERSIONSTOP":[137]820
700 [139]A$[179][177]"C"[137]660
710 N[178]N[170]1:F$(N)[178]F$:O$(N)[178]O$:[153]"CONTCONVERT FILESTOP "
720 [139]N[179]MX[137]500
730 [153]" (null)AXIMUM OF";MX;"FILES."
740 [139] [168] GF [167] [153]" (null)O MATCHING GRAPHICS NAMES FOUND!STOP":GF[178]0
750 [160]1:[153]"";N;"FILES TO CONVERT ":[139]N[178]0[167]820
760 [145] CT [137]870,1080
770 [132]DN,E,E$,E1,E2
780 [139]E[178]0[167][142]
790 EE$[178][202]([196](E),2):E1$[178][202]([196](E1),2):E2$[178][202]([196](E2),2)
800 [139]E[178]63[167][142]
810 [153]:[153]"";EE$;",";E$;",";E1$;",";E2$
820 [160]15:[160]14:[160]1:[160]8:[160]9
830 [133]" (null)ORE PROGRAMS TO CONVERT? YCMDCMDCMD";A$
840 [139]A$[178]"Y"[167]240
850 [153][163]12)"VAL(null)STR$ (null)ASC LEN(null)(null)(null)VAL(null)(null)RIGHT$(null)(null)"
860 [153]" STOP":[128]
870 [129] I[178]1[164]N:[152]15,"I0":[152]14,"I0":[159]8,SD,8,F$(I)[170]",P,R":DN[178]15
880 [141] 770:[161]#8,A$,B$:[153]F$(I)
890 [139] A$[179][177]""[176]B$[179][177][199](88)[167][153][163]18)"ON(null)OT A (null)RINT (null)HOP ASCILE.STOP":[137]980
900 [153][163]18);"ON--> STOP"[200](O$(I),12)".GRA"
910 [159]9,DD,9,[200](O$(I),12)[170]".GRA,P,W"
920 DN[178]14:[141]770:[139] E [167]1010
930 [152]9,[199](80);[199](119);[199](88);Z$;[199](52);Z$;[199](180);
940 [129] J[178]1[164]52:L$[178]"":[129]K[178]1[164]11
950 [161]#8,A$:[139]A$[178]""[167]A$[178]Z$
960 L$[178]L$[170]A$:[130]:L$[178][199](139)[170]L$:[152]9,L$;:[130]
970 [152]9,Z$;Z$;Z$;Z$;[199](139);:[129]J[178]1[164]10:[152]9,FL$;:[130]
980 [160]8:[160]9
990 DN[178]15:[141]770:DN[178]14:[141]770
1000 [130]:[137]820
1010 [153]"ASCILE VALXISTS. STOPVALNTER NEW NAME
1020 PRINT" (12 CHARACTERS MAXIMUM, NO
1030 [153]" SPACES, PERIODS, '\'S, OR '^'S);
1040 PRINT" PRESS [210][197][212][213][210][206][146] TO SKIP:":O$(I)=""
1050 INPUT O$(I):IF O$(I)=""THEN980
1060 IF RIGHT$(O$(I),4)=".GRA" THEN O$(I)=LEFT$(O$(I),(LEN(O$(I))-4))
1070 CLOSE9:GOTO900
1080 FOR I=1TON:PRINT#15,"I0":PRINT#14,"I0":OPEN8,SD,8,F$(I)+",P,R":DN=15
1090 GOSUB770:GET#8,A$,B$:PRINTF$(I)
1100 IFA$<>CHR$(80)THENPRINTTAB(18)"[145][206]OT A [208]RINT[205]ASTER FILE[144]":GOTO1180
1110 O$(I)=LEFT$(O$(I),LEN(O$(I))-4)
1120 PRINTTAB(18);"[145]-->[144] "O$(I):OPEN9,DD,9,O$(I)+",P,W"
1130 DN=14:GOSUB770:IF E THEN1210
1140 :GET#8,A$,A$,A$,A$,A$,A$:PRINT#9,Z$;CHR$(88);
1150 FOR J=1TO52:L$="":FORK=1TO11
1160 GET#8,A$:IFA$=""THENA$=Z$
1170 L$=L$+A$:NEXT:GET#8,A$:PRINT#9,L$;:NEXT
1180 CLOSE8:CLOSE9
1190 DN=15:GOSUB770:DN=14:GOSUB770
1200 NEXT:GOTO820
1210 PRINT"[198]ILE [197]XISTS. [144][197]NTER NEW NAME
1220 [153]" (16 CHARACTERS MAXIMUM, LOWER CASE
1230 PRINT" ONLY, STARTING WITH A LETTER);
1240 [153]" PRESS (null)VAL(null)(null)(null)(null)WAIT TO SKIP:":O$(I)[178]""
1250 [133]O$(I):[139] O$(I)[178]""[167]1180
1260 [160]9:[137]1120